Function  new_IsSafeFileUpdateStack( IsEnabled as boolean ) as IsSafeFileUpdateStack

を実行します。

SafeFileUpdate

返り値のオブジェクトが削除されたら、指定は無効になります。

(src)

g_FileOptions = new FileOptionsClass

Class  FileOptionsClass
  Public Property Get  CharSet    '// as lower case string.  ADODB.Stream.Charset
  Public Property Get  CharSetEx  '// as Empty, c.UTF_8_No_BOM
  Public Property Get  LineSeparator     '// as ADODBConsts.Keep
  Public Property Get  IsSafeFileUpdate  '// as boolean
End Class

→ new_TextFileCharSetStack

→ new_IsSafeFileUpdateStack

(src)

Sub  WriteVBS_Comment( Path as string, StartTag as string, EndTag as string,
    Text as string, Opt as Empty )

VBScript のファイルの中のコメントに、複数行の文字列を書き込みます。

【引数】

Path

StartTag

VBScript ファイルのパス、Empty =

VBScript ファイルの中の、書き込みを開始する1つ上の行にあるキーワード

EndTag

Opt

書き込む最後の行の1つ下の行にあるキーワード

Empty を指定してください

StartTag と EndTag に指定したキーワードがヒットしないよう、下記のサンプルにあるように + でつなぐ
などの対策をしてください。

テスト

→ T_FileInScript.vbs

T_WriteVBS_Comment

ソース

→ vbslib.vbs

WScript.ScriptFullName

Text

書き込む文字列。 先頭に ' は不要です

サンプル

Sub  WriteVBSLibFooter( OutFileStream as TextStream, Opt as WriteVBSLibFooter_Option )

【引数】

OutFileStream

開いている書き込むファイル

WriteVBSLibFooter_Option

Sub  WriteVBSLibHeader( OutFileStream as TextStream, Opt as WriteVBSLibHeader_Option )

【引数】

OutFileStream

開いている書き込むファイル

WriteVBSLibHeader_Option

    Set  file = OpenForReplace( "file1.html", Empty )
    file.Replace  "<TopOfContexts/>", "<TopOfContexts/>"+vbCRLF+ "new Topic"
    file = Empty

OpenForReplace

Dim  ReplaceTextFile1::Text as string

編集中のファイルの内容。

この内容を直接変更することで、ファイルの内容を変更することができます。

テスト

→ T_Replace.vbs

T_OpenForReplaceText

Sub  ReplaceTextFile1::Replace( FromText as string, ToText as string )

テキストを置き換えます。

【引数】

FromText

ToText

置き換える前のテキスト、または VBScript.RegExp

置き換えた後のテキスト

置き換えた後のテキストが存在するときは、置き換えを行いません。
これは、VBS の Replace 関数と結果が異なりますが、追加的な置き換えをしたときに、多重的に
追加されることがなくなります。

例：

Sub  ReplaceTextFile1::ReplaceRange( StartOfFromText as string, EndOfFromText as string,
                                     ToText as string )

指定のタグで囲まれたテキストを置き換えます。

【引数】

StartOfFromText

EndOfFromText

置き換える前のテキストが始まる場所にあるタグ（テキスト）

置き換える前のテキストが終わる場所にあるタグ（テキスト）

置き換えた後のテキスト。 通常、タグも含む。

ToText

置き換えサンプル

StartOfFromText = "<Tag>", EndOfFromText = "</Tag>" とします。

ToText

置き換える前

置き換えた後

Sub  ReplaceTextFile1::Close()

テキストファイルの内容の変更を完了します。

→ ReplaceTextFile1 クラス

Dim  ReplaceTextFile1::IsSaveInTerminate as boolean or Empty

オブジェクトが削除されるタイミングで保存するかどうか。

Empty のときは、エラーが発生している状態でなければ保存します。

temporary_path = "FileA.txt.updating"
CreateFile  temporary_path, "新情報！"
SafeFileUpdateEx  temporary_path,  "FileA.txt",  Empty

SafeFileUpdateEx

Sub  SafeFileUpdate( FromTmpFilePath as string, ToFilePath as string )

ファイルを安全に更新します。 上書き移動して、元の内容はゴミ箱に入ります。

【引数】

FromTmpFilePath

ToFilePath

新しい内容が書かれたファイルのパス

更新するファイルのパス

テスト

→ T_SafeCopy.vbs # [T_SafeFileUpdate]

関連

→ new_IsSafeFileUpdateStack

→ vbslib.vbs

ソース

→ SafeFileUpdateEx

Sub  ConvertToFullPath( SrcFilePath as string, DstFilePath as string )

%FullPath(..\SampleLib)%

テキストファイルの中の相対パスや特殊フォルダのパスをフル・パスに変換してコピーします。

変換前

変換後の例

C:\folder\SampleLib

%DesktopPath%

C:\Documents and Settings\user1\デスクトップ

【引数】

SrcFilePath

DstFilePath

変換前のファイルのパス

変換後のファイルのパス（新規作成または上書き）, Empty不可

(src)

ParsePercentVariableString  "abc %VAR1%, %VAR2% def", sub_strings, variables
Assert  IsSameArray( sub_strings, Array( "abc ", ", ", " def" ) )
Assert  IsSameArray( variables, Array( "%VAR1%", "%VAR2%" ) )

Sub  ReplaceStringTemplate( FolderPath as string, RegularExpressionPart as string,
    TemplateBefore as string, TemplateAfter as string, Opt as Empty )

テキストファイルの中をキーワードで検索し、テンプレートを置き換えます。

【引数】

FolderPath

RegularExpressionPart

検索対象フォルダーやワイルドカード

TemplateBefore

置き換える前のテンプレート（複数行可）

Opt

オプション、または、Empty

置き換える前のキーワード。複数行不可

→ 正規表現

置き換えた後のテンプレート（複数行可）

TemplateAfter

関連

→ PartRep

→ SearchStringTemplate

テンプレートの中に次の予約変数を記述することができます。

${FileName}

ファイル名に置き換わります

置き換えた後のテンプレートにある変数が、置き換える前のテンプレートにないときは、
変数のまま残ります。 ただし、Opt 引数に dictionary 型を指定して、変数に一致する
キーに対応した値に置き換えることもできます。